home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 October / Pcwk1097.iso / REKLAMY / ATA-INT / 3220 / 3220.EXE / 3220.DXR / 00095_anim set up 12.15.ls < prev    next >
Encoding:
Text File  |  1997-02-13  |  2.3 KB  |  32 lines
  1. global gDCAnimObj, gSweepHiliteTrigger
  2.  
  3. on enterFrame
  4.   repeat with i = 4 to 9
  5.     if i = 5 then
  6.       next repeat
  7.     end if
  8.     if the puppet of sprite i then
  9.       set the loc of sprite i to point(320, 240)
  10.     end if
  11.   end repeat
  12.   updateStage()
  13. end
  14.  
  15. on exitFrame
  16.   set checkBoxSprs to [30, 31, 32, 33, 34, 35, 36, 37]
  17.   set checkBoxNames to ["12.15.02a", "12.15.03a", "12.15.04a", "12.15.05a", "12.15.06a", "12.15.07a", "12.15.08a", "12.15.09a"]
  18.   set graphicCastNames to ["12.15.02c", "12.15.03c", "12.15.04c", "12.15.05c", "12.15.06c", "12.15.07c", "12.15.08c", "12.15.09c"]
  19.   set textCastNames to ["12.15.02b", "12.15.03b", "12.15.04b", "12.15.05b", "12.15.06b", "12.15.07b", "12.15.08b", "12.15.09b"]
  20.   set graphicAnims to [[10, point(320, 240), point(320, 240), 0, [], 0, EMPTY, []], [11, point(320, 240), point(320, 240), 0, [], 0, EMPTY, []], [11, point(320, 240), point(320, 240), 0, [], 0, EMPTY, []], [11, point(320, 240), point(320, 240), 0, [], 0, EMPTY, []], [12, point(320, 240), point(320, 240), 0, [], 0, EMPTY, []], [13, point(320, 240), point(320, 240), 0, [], 0, EMPTY, []], [14, point(320, 240), point(320, 240), 0, [], 0, EMPTY, []], [15, point(320, 240), point(320, 240), 0, [], 0, EMPTY, []]]
  21.   set txtAnims to [[24, point(15, 107), point(15, 107), 0, [], 0, EMPTY, []], [25, point(15, 182), point(15, 182), 0, [], 0, EMPTY, []], [25, point(15, 182), point(15, 182), 0, [], 0, EMPTY, []], [25, point(15, 182), point(15, 182), 0, [], 0, EMPTY, []], [26, point(15, 249), point(15, 249), 0, [], 0, EMPTY, []], [27, point(15, 321), point(15, 321), 0, [], 0, EMPTY, []], [28, point(15, 3761), point(15, 376), 0, [], 0, EMPTY, []], [29, point(15, 446), point(15, 446), 0, [], 0, EMPTY, []]]
  22.   set sharedSprs to [[2, 3, 4]]
  23.   set frameOnlySprs to [10, 11, 12, 13, 14, 15, 24, 25, 26, 27, 28, 29]
  24.   set masterCheck to the number of cast "12.15.02a"
  25.   set checkBoxNums to [1479, 1481, 1483, 1485, 1487, 1489, 1491, 1493]
  26.   set graphicNums to [440, 442, 443, 444, 446, 448, 450, 452]
  27.   set textNums to [1480, 1482, 1484, 1486, 1488, 1490, 1492, 1494]
  28.   set gDCAnimObj to birth(script "DCAnimation", checkBoxSprs, checkBoxNames, graphicCastNames, textCastNames, graphicAnims, txtAnims, sharedSprs, frameOnlySprs, masterCheck, checkBoxNums, graphicNums, textNums)
  29.   set gSweepHiliteTrigger to 1
  30.   set the checkBoxAccess to 0
  31. end
  32.